home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / DA / A-I / AsyncApplinkDA.sit / AsyncApplinkDA / Async Appletalk.rsrc / STR#_128.txt < prev    next >
Encoding:
Text File  |  1986-12-24  |  1.1 KB  |  116 lines
  1. rem This program dials a US Robotics Modem.
  2.  
  3. rem The USR Password is Hayes compatible.
  4.  
  5. rem 3
  6.  
  7. rem By Steve Ligett.
  8.  
  9. rem 5
  10.  
  11. rem Version 1.0b1 November 1986
  12.  
  13. rem 7
  14.  
  15. rem This example uses each statement
  16.  
  17. rem in the dialing language.
  18.  
  19. goto 12
  20.  
  21. display It is an error to display this message.
  22.  
  23. display     Hayes-Compatible Dialer
  24.                  V1.0B1
  25.  
  26. wait 65
  27.  
  28. count 3
  29.  
  30. send +
  31.  
  32. loop send 3 "+"s surrounded by silence
  33.  
  34. count 8
  35.  
  36. receive 10 10
  37.  
  38. loop ignoring up to 7 lines
  39.  
  40. rem Send a command to modem.
  41.  
  42. send ATE0
  43.  
  44.  
  45. count 4
  46.  
  47. receive 75 10
  48.  
  49. if ok 31
  50.  
  51. loop
  52.  
  53. rem No response from Modem.
  54.  
  55. display No response from modem.
  56. Check your cables, etc.
  57.  
  58. goto 54
  59.  
  60. rem 29
  61.  
  62. rem Modem responded, try dialing.
  63.  
  64. display               Dialing ...
  65.  
  66. send ATD 
  67.  
  68. dial
  69.  
  70. send 
  71.  
  72.  
  73. count 8
  74.  
  75. receive 300 10
  76.  
  77. if connect 47
  78.  
  79. if error 43
  80.  
  81. if busy 45
  82.  
  83. loop
  84.  
  85. display            Dialing Failed.
  86.  
  87. goto 54
  88.  
  89. display          Error, try again.
  90.  
  91. goto 54
  92.  
  93. display           Busy, try again.
  94.  
  95. goto 54
  96.  
  97. display              Connected.
  98.  
  99. rem Wait for NED to get ready
  100.  
  101. wait 120
  102.  
  103. send 
  104.  
  105.  
  106. receive 90 64
  107.  
  108. stop 0
  109.  
  110. rem error return
  111.  
  112. wait 180
  113.  
  114. stop 1
  115.  
  116.